home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / qbtools1.arc / AECORECT.BAS < prev    next >
BASIC Source File  |  1987-01-11  |  384b  |  19 lines
  1. rem $linesize:132
  2. rem $title:'Ask if correct, usefull for idling'
  3. rem $subtitle:'Introduction'
  4. '                Include the COMMON values
  5. rem $include:'AESHARED.BAS'            
  6.     
  7.  
  8.     sub Correct(b%) static
  9.         dialog$(1)="Is this correct ? If you answer No, then"
  10.         dialog$(2)="you'll have chance to correct it."
  11.         call Yes.No(yn$)
  12.         if yn$="Y" then
  13.             b%=1%
  14.         end if
  15.     end sub
  16.  
  17.  
  18.  
  19.